home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 017 / dial.bat < prev    next >
Encoding:
DOS Batch File  |  1984-01-09  |  1.6 KB  |  49 lines
  1. bat cls
  2. bat begtype
  3.      Dialing driver for PC-TALK.  Format:  Dial # R  (R=repeatedly)
  4. end
  5. bat if .%1 = . call -getnumber  | * if not passed, get dialing info
  6. bat %3 = %1 #                   | * get length of string 
  7. bat if %3 < 3 call -validate    | * if menu #, validate
  8. bat * insert into keyboard stack a carriage return, line feed, alt-D
  9. bat begstack
  10.  
  11. \00\20;
  12. end 
  13. bat if %3 > 2 stack M | skip 2  | * if special #, insert M
  14.        bat %4 = %1 - 1| %4 = %4 / 15   | * else calculate # menus to jump
  15.        bat call -getmenu               | *      position on right menu
  16. bat stack %1                    | * insert # to dial
  17. bat if %2 = R call -rptmode     | * if requested, put in repeat dial mode
  18. PC-TALK                  
  19. bat exit                        | * exit to DOS after exit PC-TALK
  20.  
  21. bat ****   subroutines   ***
  22.  
  23. bat -getnumber
  24.     bat type | read Please enter # to dial: %1
  25.     bat type | inkey DIAL R(epeatedly until answered)...1(time)=<Rtn> (R,1): %2
  26.     bat -chk if %2 <> KEY00D if %2 <> R if %2 <> 1 beep|inkey %2| goto -chk
  27.     bat if %2 = KEY00D %2 = 1
  28.     bat type %2
  29. bat return
  30.  
  31. bat -validate
  32.       bat if %1 > 0 if %1 < 61 return
  33.              bat cls beep type your entry of %1 is an
  34.              bat read .     INVALID menu #:  please RE-ENTER (1-60): %1
  35. bat goto -validate
  36.  
  37. bat -getmenu 
  38.       bat if %4 < 1 return
  39.       bat %4 = %4 - 1 
  40.       bat stack F
  41. bat goto -getmenu
  42.  
  43. bat -rptmode
  44. bat * insert slight delay, K to stop dial, alt-Q to make repeat
  45. bat begstack
  46. \ff\02K\00\10;
  47. end
  48. bat return